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eeF ILE®®1D©*EVLMAIN 
EEEEEEEEEE vv W LL 4 MMs AAAAAA IIIII1 NN NN ; 
EEEEEEEEEE VV WwW LL si MM = AAAAAA HI111] NN NN : 
EE vv w LL MMMM MMMM AA AA II NN NN ; 
EE vw w LL MMMM MMMM AA AA I] NN NN ; 
EE vv w LL wy oMM MM AA AA I] NNNN 6 ; 
EE vv Ww LL mM MM OM —— AA II NNNN NN ; 
EEEEEEEE VV Ww LL Hm MM AA AA II NN NN NN ; 
EEEEEEEE VV w LL KM MM AA AA 1] NN NN NN 3 
FE vv WwW LL mM MM AAAAAAAAAA II NN NNNN 3 
a3 wW LL KM MM AAAAAAAAAA II NN NNNN ; 
Ee wow LL nM MM AA AA II NN NN J 
EE wow tL AM MM AA AA II NN NN are ; 
EEEEEEEEEE Ww LLLLLLLLLL MM MM AA AA ILIIIT NN NN a ; 
EEEEEEECEE Ww CELLLLLLLLE MM MM AA AA TINIE) =—sNN NN thet : 
LL unn SSSSSSSS ; 
LL WII SSSSSSSS ; 
LL II S$ : 
LL II SS 3 
LL II SS : 
Li II S$ ; 
LL 1] SSSSSS 3 
LL 1] SSSSSS ; 
LL 1] $$ 3 
LL 1] SS ; 
LL 1] SS : 
LL 1] S$ ; 
LLLLLLLLLL «IIIIII «= SSSSSSSS ; 
LLLLLLLLLELE «= fiiiii SSSSSSSS : 
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FACILITY: DECnet Event Logging (EVL) 


, Serene 


ZTITLE ‘DECnet Fvent Logger Main Module’ 
MODULE EVLMAIN 


Ni mivOk=B80", 


BEGIN 


IIILLALAXVVVOD 


COPYRIGHT i 1978, 1980, 1982, 1984 B 
DIGITAL EGU PRENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGKiS RESERVED. 


—X SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND ——00 
ONLY IN ACCORDANCE WITH THE rane OF SUCH LICENSE AND WITH THE 
INCLUSION OF 1* anys COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROV IED OR OTHERWISE MADE AVAILABLE TO ANY 
— NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oRPORATI ON. NOT BE <ONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


rie module contains the main entry for the event lo . 
A few routines of general utility are in the module 


i ENVIRONMENT: VAX/VMS Operating System 
i AUTHOR: Darrell Duffy , CREATION DATE: 16-June-1980 
{| MODIFIED BY: 


v001 TMHOO01 Tim Halvorsen 25-Jun-1981 
ay e 2 yorking set to minimum before hibernating, 
imit tine em physical memory usage while no 
34 anyt 


Change raterences to ASCID macro to use ZASCID. 


— 
DECnet Event Logger Main Module Sep 4 04 VAX-11 HE -32 
ad ety Re Vet tS He 
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:CEVL. OSRCSEVLMAIN. B32; 5 
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n 
j 
: ‘ : } ZSBTTL ‘Definitions’ : 
; 1! : 
i 38 ; ] | TABLE OF CONTENTS: 2 
: 60 § Be ; 
$ 61 » 1 FORWARD ROUTINE $ 
: 6¢ 1 EVLSMAIN 86 ! Main entry 3 
a © § 1 EVLSINITLOG : NOVALUE, ! Initialize for debug lo ging ; 
; 8 EVLSPRINTLOG : NOVALUE ! Print data messages to log file : 
; 5 1 : ; 
3 8 — 14 
8 1 | INCLUDE FILES: : 
; % 5 es : 
H 71 070 1 LIBRARY ‘LIBS:EVLIBRARY'; ! EVL definitions ° 
; if} 971 LIBRARY 'SYSSLIBRARY:STARLET'; i VMS common definitions ; 
BR YY cn stom : 
: § i a 
: «78 “3 1 GLOBAL : 
; 8 8 EVLSGL_LOGMASK : BBLOCK (8) ! Logging control mask : 
(81 9080 1 : F 
; 8 OBS i i EXTERNAL REFERENCES: : 
3 11 
J 85 4 1 3 
3 Hy 0085 1 EXTERNAL 3 
3 7 086 1 EVL$GW_NETSHOCHAN : WORD, ! Channel to net for show 3 
3 He 87 1 VL$8_RCVDONE : BYTE, ' True if receive inactive 3 
: 8 8 EVL$GB_TRANSDONE : BYTE; ! True if transmitter inactive : 
: 91 0090 1 EXTERNAL ROUTINE F 
3 35 091 1 EVLSRECEIVE : NOVALUE, ' Activate the receiver 3 
J 8 1 EVLSTRANSMIT : NOVALUE, ' Activate the transmitter 3 
3; 2* 93 1 WKQSD0_WORK_ITEM te ! Perform a work item in queue 3 
; 4 83 EVLSOBTAINNETCHAN : NOVALUE ' Obtain a channel to net : 
: 97 $09 1 : : 
: 38 0098 ! EXTERNAL ROUTINE : 
: 100 99 1 LIBSPUT_OUTPUT : ADDRESSING_MODE (GENERAL), : 
: 13) 8 LIBSCVT_HTB : ADDRESSING_MODE (GENERAL) : 
; 108 102 1 . ; 


3 
; 


SSIES 
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1 
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8 

9 1 
40 1 
41 139 
eg 140 
4 141 
&& 146 
45 14 
re 144 
é 146 
8 8 
9 re 
150 
58 131 
54 152 


v4. 
:CEVL. OSRCSEVLMAIN. B32; 79 


vent bee ire Main Module 1b-s sep- 1384 9}: 33: 0% vA 


ZSBTTL ‘EVLSMAIN Main Entry‘ 
GLOBAL ROUTINE EVLSMAIN = 


* FUNCTIONAL DESCRIPTION: 
It colts thertnvetat ization routines vert (088er- 
and sits in a loop performing work from the work queue. 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 

NONE 
BEGIN 
EVLSINITLOG (); ! In Pue. 1 debug Logging 
EVLSOBTAINNETCHAN AN (EVLSGW_ NETSHOCHAN) ; ! shetteting® annel to 
EVLSRECEIVE (); alize receiver cor tan 
EVLSTRANSMIT (5; —— transmitter portion 


De NOT (.EVLSB_RCVDONE AND .EVLSGB_TRANSDONE) ! Until both sides finish, 


SPURGUS (INADR=PLIT(O, AX 7FFRFFFF® )); ! Purge entire working set 
R; ait on Some work to do 
eile WKQSD0_WORK_ITEM () DO; Do work til empty queue 


RETURN TRUE; ! Exit sucessfully 
END; 


TITLE Ever DECnet Event Logger Main Module 
IDENT \v04-000\ 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


* 3) 


TFFFFFFF 90000008 S00 P.AAA: “tone 


»PSECT 
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COOOCOOCCoooooo 
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3; Routine Size: 68 bytes, Routine Base: S$CODE$S + 0000 


00000 EVLSGL_LOGMASK: : 
-BLKB 


EVLMA -Sep- 335: 
—X PVLSMAIN “Rein atry io wedt⸗ 1fsen-96 P3808 DISKSVMSMASTERSCEVL SRCSEVLMAIN.B32;1°° 


z. 2147483647 
SGLOBALS ,NOEXE ,2 


L$¢ GW ale TSH HO CHAN 
EVL$R —WUi eee tResnit 
WORK IT —3 


— 
LIBSPUT_OUTPUT, LIBSCVT_HTB 
EY SSPURCUS. SYSSHIBER 
SCODES ,NOWRT,2 
VLSMAIN feve Daten: 
BOC EVLSINI 
EVLS$GwW NETSubCR 
1, EVCSOBTAINNETCHAN 
40, EVLSRECEIVE 
. EVLSTRANSAI] 
EVL$B_R 
EVLSGB_ RMR SBONE. 4$ 
Win » SYSSPuRGuS 
ct orasoo eCORK. ITEM 
3$ 
ni, 


EVL$GB_TRANSDONE 


a2 
— 


SPARES IAs IS SESS 


— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — 


228388x82x*x8288 
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Noose 


wvuvv0vU 


— a ee ee me ee ee DD ee ee ed ed aed ed ed 
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ro 
OCO NAN UN 23 
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⏑⏑ ⏑— 
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vent Logger Main Module 
LOG Initialization debug logging 


ROUTINE EVLSINITLOG 
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FUNCTIONAL DESCRIPTION: 


The logical name E 
converted to od 
logged. 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
EVLSLOG Logical name 
IMPLICIT OUTPUTS: 
EVLSGL_LOGMASK 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


BEGIN 


LITERAL 
RSLSIZE = 10 


CAL 
RSLBFR : 


VECTOR PRSLSIZE. BYTE), 
pated 2 


VECTOR 


ate OGHA SK = 0: 
RSLDSC * RSLSIZE; 
RSLDSC = RSLBFR; 


snes se oppo 


— pied 


meas tate debug logging’ 
VALUE = 


This routine enttiel ize he internal logging fla . for EV 
gt nid i ranslated — — — 
UP ach bit of the mask controls 


— — 


4.0-7%6 > 
ERCCEVE SRCSEVLMAIN.B32:1°°" (43 


nee num ate te 
nformation to 


Size of the result buffer 


Buffer for the translation 
Descriptor for the buffer 


Initialize the bogging mask 
Setup the descriptor 

We must get a translation 
Translate the name once 
This is the Logical n name 


Place the length here 
Place the translation here 


<m 


X 


3; Routine Size: 


VIFUN —OOODNOUS Ww 


KRIMIMINININ 2 oe ee 


ECnet 


RO OONOufSwT-"0 


ROTOR) — — ts 9 ⏑ ⏑ ⏑ ⏑ ⏑— 


60 bytes ° 


VLSINITLOG Int Ef eL ication de — 


alization —* Logging 


J—— 

LIBSCVT_HTB 
-RSLDSC € £0}. 
evibets _LOGMASK 


00 47 4F 4C 24 4 36 43 0000c P 
10€000 Gate PA 
0000000" 0001 


1986 93:38:28 


If a successful translation 
Then convert the result 
Convert hex to binary 

Size of string 


Address of string 
Address of longword result 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
ry \5Yb249%<0> 
“ADDRESS P.AAC 

-EXTRN SYSSTRNLOG 

-PSECT SCODES,NOWRT,2 


0000 00000 EVLSINITLOG: 


5E 

0000' 

04 AE 08 

0 

10 

0000' 
060000006 99 
1 

“et 
000000006 00 


Routine Base: S$CODES + 0044 


seye nothing 
CLRL EVLSGL_LOGMASK 
MOVAB RSLBFR, RSLDSC+4 
CLRL = = (SP) 

HAB RSLDSC 
PUSHAB RSLDSC 

HAB 


P.AAB 
CALLS #6, SYSSTRNLOG 
MPL RO, #1 


PUSHAB hte ——— 


L 
CALLS pyLbat LIBSCVT_HTB 


VAX-11 Bliss- eace 
DISKSVMSMASTER: 


Vi OSRCSEVLMAIN. 832; ae 


— 
(4) 


* 


ie 


7 
Cc i -Sep- 735: -11 Bliss- 4.0-74 
VLSPRINYLOS 9 nt 3 been Neseege to the Log 1$-se0-1904 93:38:88 —X ck?t — 
ZSBTTL ‘EVLSPR NTL OS Print a Date 3* e to the tog" 
« MEADDSC, EXTRADSC, DATADSC) : NOVALUE = 


; GLOBAL ROUTINE EVLSPRINTLOG (LOGBI 

; 14 

3 } FUNCTIONAL DESCRIPTION: 

; i Check the logging control mask and if the corresponding bit jis set 
; ; then print the spec ial message to the log file pone message 

3 1! has a header and optionally some extra text which explains the 
s : H logged message. 

; 4 | FORMAL PARAMETERS: 

: 26 1! LOGBIT Value ef the Logging bit to control the logging 
: 26 1! as a bit number 

3 tg 1! HEADDSC Address of a descriptor of the header text 

3 26 1! EXTRADSC Address of a descriptor of the extra text (optional) 
: 266 40 1! DATADSC accross of a descriptor of the data to be converted 
3 245 r } : and printed 

; 8 43 | IMPLICIT INPUTS: 

: 8 45 ! EVLS$GL_LOGCONTROL 

; ef { IMPLICIT OUTPUTS: 

: 5 s ; NONE 

: 255 1 ! ROUTINE VALUE: 

3 § § : : COMPLETION CODES: 

; 8 4 ; NONE 

; 260 41 i SIDE EFFECTS: 

; 261 1! 

$06 a Ti NONE 

; 26 1! 

; 2646 ret 1— 

238 BEGIN 

: $86 es 

; 63 65 HEADDSC : REF BBLOCK, 

g $6 EXTRADSC : REF BBLOCK, 

3 DATADSC : REF BBLOCK 

; 27 $ » 

3 74 LITERAL 

3 Le g FAOSIZ = 256 ! The print buffer 

: 4 iF — 

8 75 FAOBUF : VECTOR fagsiz. BYTE], ! Print buffer 

3 7 FAOLST : VECTOR 9 ° ' List args to SFAOL 

3 7 OUTDSC : VECTOR (2), ' Descr ptor of the output Line 
3 § 7 BYTES, ' Counter for bytes written 

: 7 CTR : SIGNED, ! A random counter 


— — — — — — — te — 


NAVEEN @OOONOULS WN O 6 


WwnN— 


‘ 

5 

5c 

5 

PB ' 
P 306 

P 030 
P * 
P 0305 

P 031 

1 

1 

1 

1 

1 

1 

1 

1 

1 


NAME WN —OOONOUES WO 


ECnet E 
VLSPRIN 


4 
& 
4, 
* 
4 
J 


rf Main Modu 


rint a Date —88 to the Log if: se0-1944 9}: 33; % i 


PTR, 
ITR_CNT 


X-11 Bliss 
SKSVMSMAST 


! A random pyrater 
! Temporary iteration count 


See if this text should be logged, and if not then return 


en” -EVLSGL_LOGMASK (CO, .LOGBIT, 1, 0) 


RETURN 


FAOSIZ; 


£ £9 
T 
1 fh 
T 
F se EQL 0 


ZASCID ** 
-EXTRADSC 


2 

@ 
“cm 
Anz 
“nun 

o 

a 


LIBSPUT_OUTPUT (OUTDSC); 
CTR = .DATADSC [DSC$W_LENGTH); 
PTR = -DATADSC DSCSA~POINT Teri: 
WHILE .C 
DO 
arte se EM}: < FASSUE 

eta ¥ p 
02" * 17k, CHT: 
1 


ITR_C 
FROR® ‘ "0. 


yaad ; Ro “CNT; 
CNT 


! Initialize the output buffer dsc 


HEAD pose; ade 
DATADSE® Coscsw “LENGTHS: ! "este. Length 


Extra text dsc 


! Write the header out 


ZASCID °!/ !AS (length = !UL bytes)!/ !AS!/', 


! Size of message 
! Its address 
! Process it all 


Set a descriptor 


Get byte count 
Add count parameter 


A few bytes at a time 


TR) <0, 8, O0>; ! One for the hex 
CNT#1) = .(.PTR) < <0, 8, 0>; ! Decimal 
4. T)+1 


: ' One tor character 


N s 
he + 1)°= .PTR; 


Next one 


ERSCEVL SRCTEVLMAIN.B32:1°%° (S$ 


es 


7 
SL SPRIN tog hi ba yy to the Log 1b-Se0-1984 93:33:08 Disk VMehASteR ER: 2 vie ot EVLMAIN.B32;1 ad (s3 
| am, ! Saviour of bored programmers 
; 


: 


— — LMC4AF)I/", 


vuvvuUU 


pd‘! 
¢ £6 
t 
T 


_ 
@o 
“oc 
2532 
nunn 


Se Ge Se Ge Ge Ge Ge Ge Ge Ge ee 


— — (OUTDSC); ! Write to SYSSOUTPUT 


vw 
—o 


END; 
-PSECT SPLITS,NOWRT,NOEXE,2 


eADDRESS P.AA 


C : .BLKB 
6 P.AAD: .LONG 9696720 
P.AAG: .ASCII *R ‘AS (length = !UL bytes)!/ ‘!AS!/- 


ASCII < 
P.AAF: .LONG Robrs 


P.AAL: ASCII \!#(4XB)!/!#(4UB)!/ 1 #(4AF)!/\<0><0> 


6 
HSAOMMERERHER EY 
| 


Hb HM be BH 6 2b bo FF 


9 
0 000 
4 P.AAH: .LONG 17694750 
8 -ADDRESS P.AAI 
~EXTRN SYSSFAOL 


-PSECT SCODES,NOWRT,2 


Be Se Ge Ge Ge Ge Se Ge Fe Ge Se Fe Be Se 


OOFC 00 ENTRY EVLSPRINTLOG. Save RZ,R3,R4,R5.RO.R7 ; 0224 
7 444 G + E 00 MOVAB LIBSPUT va ; 
6 G E 000 MOVAB SYSSFA aor, ; 
E FOGB. CE OF 00010 MOVAB =664(SP) ; 
01 0000" CF 4 AC £O 00013 BBS LOGBIT, ivibes -LOGMASK, 18 ; 0288 
6E 0100 8F $C 0001D 18: — MOVZWL #256. OUTDSC ; 0293 
AE = FFOO. «CD. «OME OC MOVAB FAOBUF, OUTDSC+4 > 0294 
08 A AC DO 000 MOVL  HEADDSC, FAOLST : 0399 
5 AS BO 00% MOVL DAT ; 
oc AE 6 0 MOVZWL (R2), FAOLST+4 ; 
Oc AC 3 Bot TSTL EXTRADSC ; 0299 
0 4! BNEQ : 
500000" CF 9E O005A ROVAB BAAD, RO : 0300 
: : 
50 oc ACO ii gg: ROL. EXTRADSC, i 030 
10 AE 5 D0 : MOVE RO, FAOLST+ : 
8 AE BF 000 PUSHAB FAOLST ; O51 
AE 9F O004C PUSHAB OUTDSC ; 
8, AE SF OOOU PUSHAB QUTDSC ; 
0000" CF 366 PUSHAB : 
66 4 FB 000 CALLS #4, SYSSFAOL : 


—8 DEERE RYESE “OPRCE NSD MLS oe co ene cop ECREBCIGEL QUBE:RS — YMcHUABhLRNERZ Ue PaRewnam.osesk" dP 


DD 90059 PUSHL — §P ; 0312 
f D CALLS #1, LIBSPUT_OUTPUT ; 
d( MOVZWL (RZ), CTR 3 0314 
04 Ag 06 0006 MOVL = 4(R2S, PTR : 0315 
D065 48 Tste CTR : 0316 
6 0100 Fat 0069 ROVZuL #256, OUTDSC : 0319 
04 A FF 00¢ MOVAB FAOBUF, OUTDSC+4 i 0320 
; 06 000 MOVL CTR, Rb : 0321 
4 D1 Bo CMPL = RO, 2 ; 
DO7A BLEQ 5 Py 
59 4 0 o007¢ MOVL #20, RO ; 
D0 OO07F 5$ MOVL RO, ITR ; 
08 A dO 00C MOVE. —ITRLENT> FAOLST : 0328 
C AES BO 00¢ MOVL = ITRICNT, — “3 CNT) ; 
50 5 ii ASHE AT “ITRICNT, > 0324 
10 AES ¢ 00 008F MOVE TTR_ENT FAOLST*8CROJ ; 
51 BO 90¢ MOVL = #1, “IDX ; 0325 
097 BRB 7S ; 
08 AE4I 9A 00099 6$ MOVZL (PTR). _FAOLSTCIDXI i 0328 : 
50 51 £1 Oo ADDLS” TR CNT R : 0329 : 
OC AE4O 63 9A 000 MOVIBL (PTR). FAOLSf eq RO ; : 
2 8142 9F O00A MOV Spay +CITR_CNTI, R ; 0330 ; 
50 4 DOAB ASHL = #1, -R4, RO™ ; ; 
OC AE4O 1 BO QO0AE MOVL * FAOLST#4CROI 3 : 
50 1 DOE ASHE #1, Re, RO : 0331 : 
10 AE4O 2 9 000 MOV (PTR)+, FAOLST+8CROJ ; : 
D7 0008D DECL CTR : 0333 
52 1 D1 000BF 78: CMPL. =: IDX, ITR_CNT : 0325 
d5 1B 000C BLEGU ; 
8 AE 9F 000C PUSHAB FAOLST ; 0343 
4 AE 9F 000C7 PUSHAB OUTDSC ; 
8, AE 9F 000CA PUSHAB OUTDSC ; 
0000" CF 9F 000CD PUSHAB P.AAH ; 
66 4 FB 00001 CALLS #4, SYSSFAOL ; 
E DD 00004 PUSHL SP : 0345 
67 1 FB 000D CALLS #1, LIBSPUT_OUTPUT ; 
A 11 000D BRE 4S i 0316 
04 000DB 8$:  —RET 3 6 


: Routine Size: 220 bytes, Routine Base: S$CODE$S + 0080 


voe-000 PEESEELRYESE “OPREE NUESER Sage co ene cop TECSEBCISEL SU:BE:OS  YMcLUaBhLSReRZ Hi ezevemainoscst2®* 13 pr 


323 tk 4 FP on 'End of module 


PSECT SUMMARY 

Name Bytes Attributes 
SGLOBALS $ NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 124 NOVEC,NOWRT, RD Jaa 1S »NOSH ine LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 348 NOVEC.NOWRT, RD. EXE,-NOSHR, LCL, REL. CON,NOPIC,ALIGN(2) 

Library Statistics 
— — Symbols -<------ Pages Processing 

File Total Loaded Percent Mapped Time 

3 — f EVL.OBJ] evil ARY.L32;1 191 g 1 14 9800.1 
$255$0UA28:(SYSLIBJS let L32;1 9776 0 581 0:01.3 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:EVLMAIN/OBJ=OBJ$:EVLMAIN MSRC$:EVLMAIN/UPDATE=(ENHS:EVLMAIN) 


Size: 348 code + 132 data bytes 
Run Time: :08.7 

Elapsed Time: :20. 

Lines/CPU Min: 3 


Lexemes/CPU-Min: 1 
penery Used: 86 pages 
Compilation Complete 


NT CORPORATION 
D PROPRIETARY 


D= 
iS a IT) 


* 


015 AH-BT1i3A-SE DIGI 
VAX/VMS V4.0 CONF 


